home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen… 1994 February Supplement / ARPL-Feb-94-Supplement-PowerPC.iso / 3rd Party PowerPC Demo Apps / Aldus FreeHand / Aldus FreeHand 4.0 TV / Aldus FreeHand 4.0 TV.rsrc / Post_1237 < prev    next >
Encoding:
Text File  |  1994-01-25  |  503 b   |  16 lines
  1. /_ReencodedFontPrefix 128 string dup 0 (_VRT) putinterval def 
  2. /findfont {
  3.  dup _ReencodedFontPrefix 4 124 getinterval cvs length 4 add _ReencodedFontPrefix 0 3 -1 roll
  4.  getinterval cvn exch FontDirectory 2 index known {
  5. pop FontDirectory exch get
  6.  }{
  7. //findfont exec dup /Encoding get /Helvetica //findfont exec /Encoding get eq {
  8. dup length dict exch {1 index /FID ne {2 index 3 1 roll put}{pop pop} ifelse}forall
  9. dup /Encoding VirtuosoEncoding put
  10. definefont
  11. }{
  12. exch pop
  13. } ifelse
  14.  }ifelse
  15. }bind def